±>lri\j \ i~' <— . u^ C; 




INSTANT 



i~7 - T"- ~7<3 



INSTANT 6400/6500/6600 SIMULA 

CONTROL DAT A® 6000 SIMULA is a dynamic general purpose 
programming language for algorithmic applications; the language has 
a powerful simulation capability. Based on ALGOL-60, SIMULA is 
an extension of Control Data 6000 ALGOL. 

SIMULA operates under control of the SCOPE operating system, and 
has the following capabilities: 

Simulation of discrete event systems - processes interrelated 
by events, dynamically evaluated, rather than by permanent 
relationships 

Readable language 

Classes - structured compound objects extend the structure 
concept of PL/1 

Scheduling algorithms 

Extensive library capabilities - tracing facilities for 
debugging, random drawing, data analysis and library 
facilities of Control Data 6000 ALGOL 

Flexible input/output 

List-processing 

Prefixing - class names prefix program blocks and make 
the class capabilities available to the block 



6000 SIMULA ELEMENTS 
Number Format 



±d 1 d„. . .d..d d „. .d ln ±e 1 e„. .e 
12 [ i+1 j+2 nil) 12 n 



integer : { ±mm 

±, „±ee 



magnitudes: 



322 



< integer < 1 . 3 X 1 0' 



-294 322 

3.1 X 10 ^<real< 1.3 XlO 



Precedence of Operators 

first: t sixth: a 

second: X / seventh: v 

third: + - eighth: d 

fourth: <<=>>/ = = =/= |s,J£ ninth: = 
fifth: "I 



Virtual Quantity Specifiers 

label, switch, procedure, and <type> procedure 

Blanks 

Not significant except within a text or character constant. 

Blocks 

Maximum nesting: 32 levels 

Identifiers 

Maximum length: 256 characters 



PROCEDURES 

Specifications are required for all formal parameters; maximum 
number of formal parameters 63. 

Procedure body may be replaced by code n. 

Transmission Modes for Class Parameters and Procedure Parameters 





Transmission Mode 


Parameter 


by 
Value 


by 
Reference 


by 
Name 


real, integer, Bool., char. 


D 


//// 


Ot 


ref 


//// 


D 


Of 


text 


O 


D 


ot 


real array, Boolean array, 








integer array, char, array 


o 


D 


ot 


ref array, text array 


//// 


D 


.//// 


procedure 


//// 


Dt 


//// 


label 


//// 


Dt 


//// 


switch 


//// 


Dt 


//// 



O Optional mode 

D Default mode 

//// Forbidden for class & procedure parameters 

transmission 

t Forbidden for class parameters transmission 



STANDARD PROCEDURES 
Object Handling 

Name Type 

Detach procedure 

Resume procedure 

Set Handling (Simset) 

Sue reference procedure 

Pred reference procedure 

Out procedure 



Follow 
Precede 

Into 

First 

Last 

Empty 

Cardinal 

Clear 

Simulation 

Idle 

Terminated 

Evtime 

Nextev 

Time 

Hold 

Passivate 

Wait 

Cancel 

Current 



procedure 
procedure 

procedure 



reference procedure 
reference procedure 
Boolean procedure 
integer procedure 
procedure 

Boolean procedure 
Boolean procedure 
real procedure 
reference procedure 
real procedure 
procedure 
procedure 
procedure 
procedure 
reference procedure 



Avoid within process objects 



Dummy statement if object has 
no set membership 

Dummy statement if object has 
no set membership or referenced 
object is none 

Dummy statement if referenced 
object is none 



Procedure names are 
recommended reserved 
names. 




Utility 

Name 



T yP e 



Accum procedure 

Text Handling 

Sub text procedure 

Strip text procedure 

Length integer procedure 

Main text procedure 



Ch 


aracter Accessing 


Name 


Type 


Pos 


integer procedure 


Setpos 


procedure 


More 


Boolean procedure 


Getchar 


character procedure 


Putchar 


procedure 



Editing 



Editing and De-editing 

operate through 

Putchar and Getchar 



Putint 


procedure 


Putfix 


procedure 


Putreal 


procedure 


Putfrac 


procedure 



De-editing 



Getint integer procedure 

Getreal real procedure 

Getfrac integer procedure 



Input/Output Procedures 

Name Type 

Sysin reference procedure 

Open procedure 

Inimage procedure 

Endfile procedure 

Inchar character procedure 

Inint integer procedure 

Inreal real procedure 

Infrac integer procedure 

Intext text procedure 

Lastitem Boolean procedure 

Directfile Procedures 

Locate procedure 

Location integer procedure 

Interrupt Control 

Manint procedure 

Arthoflw procedure 

Parity procedure 



Name 


T yP e 


Sysout 


reference procedure 


Close 


procedure 


Outimage 


procedure 


Outchar 


procedure 


Outint 


procedure 


Outreal 


procedure 


Outfrac 


procedure 


Outtext 


procedure 


Outfix 


procedure 




Printer Output 


Line 


integer procedure 


Lines Per 


procedure 


Page 





Spacing procedure 

Eject procedure 



Random Drawing 



Name 

Draw 

Randint 

Uniform 

Normal 

Psnorm 

Negexp 

Poisson 

Erlang 

Discrete 

Histd 

Linear 

Abs 

Sign 

Sqrt 

Sin 

Cos 

Arc tan 

Ln 

Exp 



Name 



Digit 
Letter 



Type 

Boolean procedure Rank 

integer procedure Char 

real procedure 

real procedure 

real procedure 

real procedure 

integer procedure 

real procedure 

integer procedure 

integer procedure 

real procedure 



Standard Library Procedures 

Character Handling 

T yP e 

integer procedure 
character procedure 
Boolean procedure 
Boolean procedure 



Text Generation 



Blanks 
Text 



text procedure 
text procedure 



Data Analysis 

Histo procedure 

Standard Functions 



integer/real procedure 
integer procedure 
real procedure 
real procedure 
real procedure 
real procedure 
real procedure 
real procedure 



Transfer Function 



Entier 



integer procedure 



CLASSES AND CLASS ATTRIBUTES 

Set Handling 

SIMSET 

LINKAGE 

HEAD (subclass of LINKAGE) 

LINK (subclass of LINKAGE) 

Object Scheduling, Generation and Execution 

SIMULATION (subclass of SIMSET) 
PROCESS 

Input/Output 

DIRECTFILE 

INFILE 

OUTFILE 

PRINTFILE (subclass of OUTFILE) 

IMAGE (attribute of FILE) 

Standard SCOPE File Names 

Standard input 
Standard print output 
Standard punch output 
Standard binary punch output 
Load-and-go (non-segmented) 
Segmented program 

Internal SIMULA compiler files 




SIMULA CODING 

A source deck for compilation is in the form of cards, or card images. 
A source deck may be a SIMULA program or a SIMULA source 
procedure. Source decks are stacked consecutively one behind the 
other, following the SCOPE control cards. The 'EOP' of the last 
source deck must be followed by a card containing FINIS in columns 
10-14. If no compilation of a source stack is requested (G and R 
options), the source input stack and FINIS cards must be omitted. 



Simula Control Card 



SIMULA ( Cl ,c ,c ,...,c ) 
I I 3 n 

SIMULA,c ,c„,c ,...,c . 



_ T 2 # "3' 



SIMULA. 



Each parameter has the form c or c=fn where c is any sequence of 
1-7 characters beginning with one of the parameter letters defined 
below. For example, L and LIST are equally acceptable for the 
list parameter, fn is the file name; if =fn is not specified, the 
standard file name associated with each parameter is used. Except 
for the I parameter, the absence of any parameter suppresses the 
corresponding option. If I is omitted, source input is on the standard 
input device. 




PARAMETERS 

| Source input (same as absence of I unless =fn is included). 

Standard file name is INPUT. 

L List source input. Diagnostics are printed even if source 

listing is suppressed. Standard file name is OUTPUT. 

X Object program in standard relocatable binary (non-segmented) 

load-and-go form. Standard file name is LGO. 

P Object program in standard relocatable binary (non-segmented) 

punched form. Standard file name is PUNCHB. 

S Object program in segmented form. Suppresses any X option 

but not P option form of the object program. Standard file 
name is SEGMENT. This file must be a disk file. 

R Execute the object program in segmented form. If the S option 

is included also, the segmented program compiled is executed. 
If the S option is not included, the segmented program is 
assumed to exist already, and all options (I, U, G in particular) 
are suppressed. The source stack must be completely empty. 
Standard file name is SEGMENT. This file must be a disk file. 

U User subprogram input supplementary to I. May be used only 

when the S option is included. Standard file name is LGO. 

G User subprogram input exclusively. May be included only 
when the S option is included. Suppresses any explicit or 
implicit I option. The source stack must be empty. Standard 
file name is LGO. Only one of the options U or G may be 
included. 

A List the assembly language encoded form of the object code in 

standard assembly language listing format. Standard file name 
is OUTPUT. 

B Punch the assembly language encoded form of the object code 

in standard assembly language card format. Standard file 
name is PUNCH. 

N Suppress array bounds checking in the object program. No 
file name required. 



10 



DATA SET CARDS 

Data set cards appear as the first or only cards of the object-time 
data on the standard input device. DATASET, appears in columns 
1-8. Parameters are separated by commas, blanks may appear any- 
where. 

Data Set Define Card 

DATASET, dn=file-name, Dd, B 

dn alphanumeric string of up to 7 characters beginning with 

a letter. If dn is used in generation of an object of 
class FILE, the SCOPE file, file-name, is to be 
referenced. 

file-name SCOPE file-name 

Dd D2 sets density to 200 bpi, D5 to 556 bpi, D8 to 800 bpi. 

If omitted, or DO, density is dependent on operator or 
installation control 

B Binary mode, if omitted, BCD 

Data Set Equate Card 

DATASET, d ni =.dn 2 

dn, and dn„ are character strings of up to 7 characters beginning 
with a letter. 

Data Set End Card 

DATASET,END 

This card indicates the end of data set information and must be 
included even if there are no other data set cards in the deck. 



Standard Simula Data Set Cards 

Two data set cards are supplied by the SIMULA system for SCOPE 
standard input and outputdevices. 

DATASET, SYS IN = INPUT 

DATASET, SYS OUT = OUTPUT 

The standard input/output devices may be referenced by the names 
SYSIN and SYSOUT and do not require data set cards. 
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PROCEDURE SOURCE DECK 



'EOP' 



terminal commentary' 



'END' 



procedure body 



'REAL' 'PROCEDURE' 



secondary commentary i 



'CODE' nnnn; 



/'COMMENT' and initial commentary'!' 



source code 




PROGRAM SOURCE DECK 



'EOP' 



terminal commentary '< 



'END' 



source deck 



( 



SIMULATION 'BEGIN' 



/'COMMENT' program name and initial commentary'!' 



optional 
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COMPILE SOURCE INPUT,UST DIAGNOSTICS 



FINIS 



source deck 



SIMULA. 



/BILL,T500,CM50000,P1. 
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COMPILE SOURCE INPUT , LIST, EXECUTE 
SEGMENTED OBJECT PROGRAM 



// 



dare 



DATASET,END 



DATASET, MANOEUV=TAPE5,D2 



( FINIS 



deck 





h 

8 






9 /SIMULA,L,S,R. 




1 


REQUEST TAPE5,LO 






/JOE,T300,CM40000,P2. 
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COMPILE PROGRAM TO SEGMENTED FILE, 
EXECUTE 
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COMPILE WITHOUT EXECUTION SEVERAL 
SOURCE DECKS; LIST AND PUNCH BINARY 
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COMPILE SOURCE INPUT , LIST GENERATEC 
PROGRAM AND EXECUTE 




COMPILER DIAGNOSTICS 

ALGOL SYMBOL 

own and string not available. 

ARITHMETIC OVERFLOW 

Evaluation of an expression involving constants results in an 
arithmetic overflow; condition is detected only if the result 
is subsequently used. 

ARRAY BOUND TYPE 

Array bound expression is not arithmetic. 

ARRAY BOUND - LOCAL 

Variable specified for array bound is declared at same 
level as array. 

ARRAY OR SWITCH CALL 

Identifier used as an array or switch has not been so 
declared. 

ARRAY SIZE - NEG OR ZERO 

Computed array size is negative or zero. 

ARRAY, SWITCH, PROCEDURE 

Too many subscripts or switch elements or formal or actual 
parameters. 

BYPASS OVERFLOW 

Capacity of compiler to handle forward references exceeded. 

CALL PARAMETER 

Undeclared or untyped parameter in a procedure call. 

CALL PARAMETER COUNT 

Procedure is called with wrong number of parameters. 

CHARACTER CONSTANT 

Illegal external representation of a character symbol. 
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'CODE' INTEGER 

Literal following symbol code is not an integer. 

'COMMENT' 

Symbol comment in an illegal position in source text. 

COMPOUND DELIMITER 

Hardware representation of a SIMULA symbol is incorrect 
e.g., ('B1G1N'). 

CONFLICTING VIRTUAL 

Conflicting virtual specification. 

DECLARATION CAPACITY 

Too many variables declared in a block structure. 

DECLARATION CODE O-FLOW 

Capacity of compiler to store labels, procedures, etc., for 
declaration code exceeded. 

DELIMITER 

Incorrect delimiter in source text for the particular contex: 

DELIMITER IN COMMENT (MESSAGE) 

Statement may have been bypassed because of a missing 
delimiter (such as ; following an end) . 

DELIMITER MISSING 

Delimiter expected at this point in source text not found. 

DOUBLE DECLARATION 

Identifier declared more than once in same block heading. 

DOUBLE SPECIFICATION 

Formal parameter specified more than once in same proce- 
dure heading. 
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DOUBLE DEFINED 

Two or more separately-compiled procedures with same 
name found during preparation of segment file. 

'END'S MISSING 

More begin than end symbols when 'EOP' encountered. 

FINIS GEN. BY PAR. ERR EOR CARD 

i., FINIS (end of source stack) forced at this point by parity 

T error or EOR card in source input. 

'FOR' CONTROL VARIABLE 

Control variable of for statement of incorrect kind or type. 

FORMAL MISSING 

Value or specification appears for an identifier not in 
formal list. 

IDENTIFIER OVERFLOW 

No room in available memory to store complete list of 
identifiers (symbol table overflow). 

'IF' CLAUSE TYPE 

Expression following an if symbol must be Boolean. 

'IF' EXPRESSION TYPE 

Expressions following symbols then and else in if statement 
must be same type. 

ILLEGAL CHARACTER 

Illegal character (external BCD 12n) in source text. 

ILLEGAL PREFIX 
\ 

Some system classes cannot be used to prefix a block. 

INCOMPLETE ENTRY TABLE 
t Incorrect Entry Point Table. 



INCOMPLETE LINK TABLE 

Incorrect Linkage Table. 

INCOMPLETE REPLICATION TABLE 
Incorrect Replication Table. 

INCOMPLETE TRANSFER TABLE 
Incorrect Transfer Table. 

INSTRUCTION OVERLAP 

Amount of code generated by a simple arithmetic or 
Boolean expression exceeds the capacity of the compiler. 

LABEL 

Identifier used as a label not declared. 

LOAD ADDRESS 

Load address in text table out of range. 

LOCAL VARIABLE OVERFLOW 

Too many local variables defined in same block. 

LONG IDENTIFIER (MESSAGE) 

Identifier exceeds 256 characters. 

MISSING DECLARATION 

Undeclared identifier. 

MISSING PROGRAM 

Program appears to be missing because of absence or 
misspelling of a delimiter which begins compilation 
(e.g., begin) . 

MORE THAN ONE PROGRAM 

More than one main program found during preparation of 
segment file. 
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NAME SPECIF 

name specified for formal parameter does not permit by 
name transmission. 

NEW SEGMENT WITHIN TEXT TABLE 

Text fable overlaps two segments. 

NO 'CODE' INTEGER 

Integer expected after symbol code is missing. 

NO MAIN PROGRAM 

Only code procedures found during segmentation. 

NO MATCH VIRTUAL 

Conflicting virtual specifications are illegal: types and 
kinds must coincide. 

NOT SUBORDINATE 

Conflicting virtual specifications are illegal: qualifications 
must be classes of same prefix branch. 

NUMBER SIZE 

Number exceeds floating-point capacity of machine. 

NUMBER SYNTAX 

Number incorrectly punctuated. 

OPERAND 

Incorrect operand in source text for the particular context. 
OPERAND MISSING 

Operand expected at this point in source text not found. 
OPERAND OVERFLOW 

Capacity of compiler to handle operands within the same 
statement exceeded. 
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V 



PARAMETER COMMENT 

Parameter comment which replaces a comma in a procedure 
declaration or procedure call incorrectly formed. 

PREFIX LOOP 

Class structures must be trees. 

PREFIX NOT CLASS 

Prefix of a class not a class identifier. 

PROCEDURE IDENTIFIER 

Identifier in a procedure call not declared as a procedure. 

PROGRAM BEGINS (MESSAGE) 

Line at which program compilation begins (appears with 
every compilation). 

PROGRAM ENDS (MESSAGE) 

Line at which program compilation ends (appears with every 
compilation). 

QUALIFIER NOT CLASS 

The qualification of reference variable is not a class 
identifier. 

REDECLARATION CAPACITY 

Capacity of compiler to handle similarly-spelled identifiers 
in a nested block sfructure,.exceeded. 

REFERENCE OUTSIDE SEGMENT ' 

Invalid addressing found during segmentation. 

REPLICATION ADDRESS 

Attempt to perform replication outside current segment. 

REPLICATION RELOCATION 

Replication may occur only within program part. 
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RULE ABOUT PREFIX VIOLATED 

A class and its prefix must be declared within same block 
head. 

SECOND DECLARATION 

Line on which second element of DOUBLE DECLARATION 
is made. 

SEQUENCE 

Binary tables out of order. 

SOURCE DECK ENDS (MESSAGE) 

Line at which 'EOP' is found or forced (appears with every 
compilation). 

SPECIFICATION MISSING 

Specification missing for identifier included as a formal. 

STANDARD FUNCTION PARAM 

Parameter in call to standard procedure of incorrect type. 

'STEP' ELEMENT TYPE 

Third expression in a step element must be arithmetic. 

STOP COMPILATION 

Line at which compilation stops; error messages for other 
lines may be lost. Appears in conjunction with OPERAND 
OVERFLOW, SYSTEM ERROR, etc. 

STRUCTURE CAPACITY 

Compiler capacity to handle a nested structure, such as 
parenthetical statements, exceeded. 

SUBPROGRAM SIZE 

Current subprogram exceeds 128K words. 

SUBSCRIPT TYPE 

All subscript expressions must be arithmetic. 
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'SWITCH' PARAMETER 

All elements in a switch list must be labels or designational 
expressions. 

SYSTEM ERROR 

Compiler or machine malfunction. 

TERMINATION 

Language construction in source text terminates 
illegally. 

TEXT CHARACTER 

Illegal character or character constant in a tex+ (external 
BCD 12 g ). 

TEXT LENGTH 

Too many characters in text or 'EOP' encountered before 
end of text. 

TEXT TERMINATION 

'EOP' encountered before end of text or character. 

TOO MANY BLOCK LEVELS 

A block structure contains block nested to more than 32 
levels. 

TOO MANY IDENTIFIERS' 

Too many differently spelled identifiers in the program. 

TOO MANY WORKING LOGS 

Too many working locations in excess of declared variables 
required to perform operations specified in this block. 

TYPE 

In a general expression, elements must have same types. 

UNKNOWN PREFIX 

No class identifier declared with that prefix name. 
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UNKNOWN QUALIFIER 

Qualification of a reference variable not defined. 



UNDEFINED 



No external name found during preparation of segment 
file. 



VALUE SPECIFICATION 



value applied for formal parameter whose specification 
does not permit a value (e.g., label). 



'WHILE' ELEMENT TYPE 

Second expression in a while statement of illegal type. 
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OBJECT-TIME DIAGNOSTICS 

Upon normal termination, open files are closed and the following 
message is output to the standard output device: 

END OF SIMULA RUN 

Upon abnormal termination, a diagnostic is printed on the standard 
output device, open files are closed, and a structured dump of infor- 
mation relevant to the currently active object is output. The 
structured dump traces the execution path through the blocks in the 
block structure currently active when the error occurred. Information 
relevant to the object is selected from core and printed in the dump 
as follows: 

THIS ERROR OCCURRED AFTER LINE xxxx 

IN THE BLOCK ENTERED AT LINE xxxx 

(global information) 

(environmental information) 

THIS BLOCK WAS CALLED FROM LINE xxxx 

IN THE BLOCK ENTERED AT LINE xxxx 

(environmental information) 

THIS BLOCK WAS CALLED FROM LINE xxxx 

IN THE BLOCK ENTERED AT LINE xxxx 

(environmental information) 

xxxx is the line number assigned each source image line during 
compilation. If the block entered is a standard procedure, the 
word STAN appears instead of the line number. 

ALPHA FORMAT ERROR 

Output value too large. 

ARITHMETIC OVERFLOW 

Evaluation of an expression results in arithmetic overflow 
(e.g., division by zero) for which no provision has been 
made with ARTHOFLW procedure. 

ARRAY BOUNDS ERROR 

Computed element address in an array not within total 
array boundaries. 

ARRAY DECLARE ERROR 

Computed array size is negative or zero. 
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ARRAY DIMENSION ERROR 

Actual parameter in a procedure call and formal in proce- 
dure declaration. 

DATA SET 

Defines data set on which preceding error occurred. 

DATASET CARD SYNTAX CIRCULAR PARITY EOF 

Either syntax of data set card is wrong or define and equate 
cards result in a circular definition of a data set; or an 
uncorrectable parity error or EOF card occurred during 
reading of data set cards. The incorrect card is output 
before the program is terminated. 

DISPLAY EXCEEDED 

Block structure nested to more than 32 levels; only calls 
to separately compiled procedures can cause this error. 

END INPUT 

Attempt to read a file after encountering an end-of-file. 

EXPONENTIAL ERROR 

Argument of EXP procedure is too large. 

ILLEGAL GOTO 

go to leading to another object, connected or detached, 
the same quasi-parallel system. 

ILLEGAL 1N-OUT 

Illegal operation requested for equipment selected. 

INSTANTANEOUS QUALIFICATION 

The attribute does not belong to the class mentioned or to 
one of its subclasses. 

LOCAL REFERENCE 

A local reference to an instance of a prefixed block is 
forbidden. 
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LOGARITHM ERROR 

Argument to LN procedure may not be negative or zero. 

OBJECT NONE 

Attempt to use an attribute of an object with a reference 
pointer to none . 

PARAMETER COUNT ERROR 

Incorrect number of actual parameters in procedure call. 

PARAMETER KIND ERROR 

Actual and formal parameters in procedure not the same 
kind. 

PARAMETER TYPE ERROR 

Actual and formal parameters in procedure call not the sam 
type. 

RESUME - NONE 

Object of a resume statement does not exist. 

RESUME - NOT DETACHED 

Parameter of a resume statement must be a detached object 

RESUME - TERMINATED 

The object of a resume statement is terminated. 

SIMULATION -XX - 

Process implied in procedure XX does not exist within the 
sequencing set. 

SIN -COS ERROR 

Argument to SIN or COS procedure is too large. 

SQUARE ROOT ERROR 

Argument to the SORT procedure may not be negative. 

STORAGE OVERFLOW 

No more space available. 
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TEXT ELEMENT ERROR 

Rules of TEXT ELEMENT violated. 

UNASSIGNED DATASET 

No data set defined for a file name used in program. 

UNDEFINED FOR LABEL 

Attempt to jump into middle of for statement. 

VIRTUAL LABEL 

Go to a virtual label not closed. 

VIRTUAL PROCEDURE 

Call on virtual procedure not closed. 



COMPILE-TIME AND OBJECT-TIME INPUT/ 
OUTPUT DIAGNOSTICS 

System diagnostics concerning input/output usage at compile-time 
and object-time appear in the DAYFILE. 

SIMULA-1/O-ERROR xxx ON FILE file-name 
xxx takes the following values: 

In general, the following values of xxx result from system error, 

improper use of the input/output system in a handwritten procedure, 

or use of the wrong segment file. 

FC1 Illegal function code to input/outputj 

FC2 Error on call for open > object-time or 

I compile-time 
FC3 Error on call for close J 

FC4 Error on reading or writing 

SGI Error in the segment file 



SG2 Library routine missing from 

segment file. 



object-time only 



INT Error in compiler pass I .■ .. i 

, r } compile-time only 

input/output J 
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SIMULA 67 SYNTAX 

*A star indicates a rule which is not part of the ALGOL-60 Report. 

The Backus normal form is used, increased by three meta-operators: 

enclose a group of meta expressions forming a new 
i } meta expression 

r , enclose an optional group and equivalent to 

t * <empfy>|{ } 

denote a repetition of the preceding group or 
optional group 



<basic symbol> 



<lerter>|<digit>| 

<logical value>|<delimiter> 



<letter> 



<digit> 
<logical value> 

<delimifer> 



<operator> 



<arithmetic operator> 
<relational operator> 



: AIBIC1DIEIFIGIHIIIJIKI 
LIMINIOIPIQIRISITIUIVI 
WIXIYIZIalblcldlelflglhl 
i|j|k|l|m|n|o|p|q|r|s|t|u| 
v|w|x|y |z| 

= 01112131415161718191 
: true |false 

: <operator> l<separator> I 
<bracket> l<declarator>l 
<specificator> 

: <arithmetic operator>l 
<relational operator>l 
<logical operator>l 
Sequential operator>l 

: +l-IXl/l -r It 
<Algol relational operator>l 
<Simula relational operator> 



33 



<Algol relational operator> 
*<Simula relational operator> 
<logical operator> 
<sequential operator> 

<Algol sequential operator> 
*<Simula sequential operator> 

<separator> 

<bracket> 
<declarator> 

<Algol declarator> 

*<Simula declarator> 

*<specificator> 
<identifier> 

*<Simula identified 

*<remote identified 



:: =<|<| = |>|>l^ 

::=is|inl==l=/= 

:: ==| -D | v|a In 

::=<Algol sequential operator>l 

<Simula sequential operator> 

::= go to 1 if I then I else I for Ido I 
code 

::= inspect | inner I new I this [qua 1 
activate | reactivate | 
otherwise | delay I at | before | 
after [ prior 

::=,|.nO|:|;|:=l 1 : - I step I 
until I while Iwhen I comment 

;;=(|)|[ 11 |'|"| begin |end 

::=<Algol declarator>l 
<Simula declarator> 

::= Boolean I integer 1 real I array I 
switch I procedure 

::= character | text | class | 
ref (<CLASS identif ier>)l 

virtual: 

::= label I value I name 

::=<letter>l<identifier> 

<letter>Kidentifier> <digif> 

::= <identifier> l<remote 
identified 

::=<simple reference 

expression> • <identifier>l 

<simple text 

expression> • <identifier> 
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<number> 
<unsigned number> 

<decimal number> 



<exponenf part> 
<decimal fraction> 
<infeger> 

<unsigned integer> 
*<text constant> 

*<character constant^ 
*<character> 

<variable> 

<simple variable> 
*<variable identified 
<subscripted variable> 

*<array identified 
<subscript list> 

<subscript expression> 
*<expression> 



::-j- + |-4<unsigned number> 

::= <decimal number>l 

<exponent part>l<decimal 
number> <exponent part> 

::= <unsigned integer>| 
<decimal fraction>l 
<unsigned infeger> <decimal 
fraction> 

= 10 <integer> 

= .<unsigned integer> 

= -pM -J<unsigned integer> 

= {<digit>}... 

= '{Character WHERE ' 
WRITTEN AS">}...' 

::= "<character>" 

::=<ANY CHARACTER 
AVAILABLE, SPACE 
INCLUDED> 

::=<simple variable>l 
Subscripted variable> 

= <variable identified 

= <Simula identified 

= <array identified 
|"<subscript list>] 

::=<Simula identified 

::= <subscript expression^ 
<subscript lisf>, 
<subscript expressiori> 

::=<arithmetic expression> 

::= <arithmetic expressiori>l 
<Boolean expression>l 
<designational expression>l 
<reference expression^ 
<text express iori>| 
<character expression>l 
<text value> 
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*<Simula function designated 



<arithmetic function designator 

<arithmetic procedure identified 

<actual parameter part> 
<actual parameter lisf> 



<parameter delimited 
<letter string> 

<actual parameter> 
<Boolean function designator> 
Preference function designator> 
*<character function designator> 

*<text function designator> 

*<Boolean procedure identified 
*<reference procedure identified 



::= <arithmetic function 
designator> |<Boolean 
function designator> I 
<reference function 
designator>|<character 
function designator>| <text 
function designator> 

::=<arithmetic procedure 
identifier>f <actual 
parameter part>J 

::=<Simula ARITHMETIC 
identified 

::= (<actual parameter list>) 

::=<actual parameter>| 
<actual parameter list> 
<parameter delimited 
<actual parameter> 

::= ,|) <letter string> : ( 

::=<letter>l<letter string> 
<letter> 

::= <expression>| <array 

identifier>l <switch identifier>| 
<procedure identified 

::=<Boolean procedure 

identifier>f<actual param- 
eter parf>T 



::= <reference procedure 
identifier>f<actual 
parameter part>J 

::=<character procedure 
identifier>-[<actual 
parameter parf>J 

::=<text procedure identified 
f <actual parameter part>J 

::=<Simula BOOLEAN identifier? 

::=<Simula REFERENCE 
identified 
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*<character procedure identified 

*<text procedure identified 
*<procedure identified 

<arithmetic expression> 



< s imple arithmetic expression> 

<term> 

<factor> 
<primary> 



<multiplying operator> 
<adding operator> 
<if clause> 
<Boolean expression> 

<simple Boolean> 
<implication> 



::=<Simula CHARACTER 
identified 

::=<Simula TEXT identified 

::=<Simula PROCEDURE 
identified 

::=<simple arithmetic 

expression>l<if clause> 
<simple arithmetic 
express ion>felse <arithme tic 
express io n>~i 

::= <term>|<adding operator> 
<ferm>| <simple arithmetic 
expression> <adding operafor> 
<terrri> 

: := <factor>| <term> 

<multiplying operator> 
<factor> 

::= <primary>|<factor>t 
<primary> 

::=<unsigned number> [ 

<ARiTHMETIC variable>l 
<arithmetic function 
designator> I (<arithmetic 
expression^) 

-= XI/| -=- 

::= if <Boolean expression> then 

::=<simple Boolean> |<if clause> 
<simple Boolean>{e]se 
<Boolean expression^ 

::= <implicatiori> Ksimple 
Boolean>=<implication> 

::=<Boolean term> Kimplica- 
tionXXBoolean terra> 
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<Boolean term> ::=<Boolean factor> I 

<Boolean term>v<Boolean 
factor> 

<Boolean factor> ::=<Boolean secondary>| 

<Boolean factor> A <Boolean 
secondary> 

<Boolean secondary> ::={ ~l} <Boolean primary> 

<Boolean primary> ::=<logical value>| 

<BOOLEAN variable>| 
<Boolean function 
designator>| <relation>| 
(<Boolean express ion>) 

*<relation> ::= <simple arithmetic 

express ion> <Algol 
relational operator> 
<simple arithmetic 
expressiori>| <simple character 
expression>{<|<| = |>|>|/} 
<simple character expression> 
<simple text value> 
{<|<| = |>|>|^}<simple 
text value>l <simple text 
expression>{ == l=/=} 
<simple text expression>| 
<simple reference 
expression>{{ == l = / = } 
<simple reference expression>l 
{ is | in} <class identified} 

<designational expression^ ::= <simple designational 

expressiori> l<if clause> 
<simple designational 
expression^ else <designa- 
tional expression>]- 

<simple designational expression> ::=<label>l<switch designator>| 

(<designational expression^ 

<switch designator> ::=<switch identified 

[<subscripf expressiori>] 

<switch identified ::=<SWITCH identified 

<label> ::=<LABEL identified 
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Preference expression> 



*<simple reference express ion> 



*<generating reference> 

*<local reference> 
*<qualified reference> 

*<text expression> 



*<simple text expression> 

*<text value> 

*<simple text value> 
*<character expression> 

*<simple character expression> 
*<statement> 



::=<simple reference 

expression>|<if clause> 
<simple reference 
expressiori> else <reference 
express iori> 

::= nonel <REF variable>| 

•Preference function designa- 
tor I <generating reference>| 
<local reference>l<qualified 
reference>l preference 
express ion>) 

::= new <CLASS identified 
■t <actual parameter part>} 

::=.this<CLASS identified 

::=<simple reference expression> 
qua <CLASS identified 

::=<simple text express ion> I 
<if clause> <simple text 
expression>f else <text 
express ion> -} 

::= no text | <T EXT variable>l 
<text function designator> 
(<text expression^ 

::=<simple text value>l<if 
clau5e> <simple text value> 
f else <text value>]- 

::=<simple text expression>| 
<text constant> 

::=<simple character expression>l 
<if clau5e> <simple character 
expression>-fjelse <character 
expression>]- 

::= <character constant>l 
<CHARACTER variable>l 
<character function designa- 
tor I (<character expression>) 

::=<Algol statement>l<Simula 
statement> 
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<Algol statement 
<unconditional statement 

<basic statement 

<compound statement 
<compound tails 
*<block> 

*<block prefix> 
<block head> 
*<Simula statement 

<assignment statement 



<go to statements 



= <unconditional statement I 
<conditional statements 

= <basic statements I <for 
statements Kcompound 
statements KblockS 

= ■£ <labelS :}. . .^assignment 
statements Kgoto statements | 
<procedure statements} 

:=[<labelS :}. . . begin 
<compound tails 

:= <statementS end I <statement> ; 
<compound tails 

:=£<labelS :} . . . f<block 
prefix>J<block headS; 
<compound tails 

:=<class identifiers <actual 
parameter parts 

:= begin <declarationS| 

<block heads ;<declaration> 

:= <connection statementSi 
<scheduling statementSi 
<denotation statements 

:={{<ARITH. variableSKARlTH. 
PROCEDURE identifiers} : =} 
. . . <arithmetic expressions | 

{{<BOOLEAN variableSl 
<BOOLEAN PROCEDURE 
identifier>}:=}. . . <Boolean 
expressiorSl 

{{<CHARACTER variableSl 
<CHARACTER PROCEDURE 
identifiers} :=}... 
<character expressions! 

{{<TEXT variableSKTEXT 
PROCEDURE identifierSKtext 
function designators} :=}... 
<text valueS 
::= go to<designational expressiorS 
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<procedure statement 

*<procedure identified 
<actual parameter part> 



<parameter delimiter> 
< letter string> 
<actual parameter> 

<arith. for list elemenf> 

<ref. for list element> 
<text for list element> 
<character for list element> 
<arifh. for clause> 

<ref. for clause> 

<text for clause> 

<character for clause> 



::=<procedure identified 
<actual parameter part> 

::=<Simula identified 

:: = t (<actual parameter> 
I<parameter delimiter> 
<actual parameter> }. . .)} 

::=, I) <letfer string>:( 

::=<letter> ... 

::=<expression>l<array identi- 
fier>l<switch identifier>l 
<procedure identified 

::=<arifhmetic expression> 

t while <Boolean expression> f 
|<arithmetic expression>step 
<arithmetic express ion> until 
<arithmetic expression> 

::=<reference expression^ while 
<Boolean express ion>j 

::=<text expression>{while 
<Boolean express ion>l 

::= <character expressiori> 

X while <Boolean express iori>]- 

::=for<ARITH. variable> : = 
<arith. for list element> 
■[ ,<arith. for list element>]\ . . 

::=for<REF. variable>:- 

<ref. for list element>{;, <ref. 
for list element>]\ . . 

::= for <TEXT variable> :- := 

<text for list elements>{, <text 
for I ist element>}. . . 

::=_for<CHAR. variable>: = 
<character for list element> 
{_ , <character for list 
element>]-. . . 



<for clause> : 

<for statement 
*<conditional statement 

<if clause> 

*<unconditional Simula statement 

*<connection statement 



*<scheduling statement 
*<activation clause> 
*<scheduling clause> 

*<denotation statement 



*<declaration> 



= <arith. for clause>l<ref. for 
clause> |<text for clause>l 
<character for clause> 

= f <label>:}... <for clause> 
<statement> 

= -£<label>:}... <if clause> 
•^unconditional Simula 
5tatement>tj else <statement> }- 

= if <Boolean express iori> then 

= Unconditional statement>l 
<Simula statement 

= inspect <reference 

express ion > {do <statement>l 
{ when <CLASS identifier>do 
<statement>} . . .} 
.[otherwise <statement>} 

= <activation clause> 
Scheduling clause> 

:= { activate l reactivate} 
<reference expression> 

:=■[{ before I after } <reference 
express ion>Tfat I delay} 
<arithmetic expression> 
f Prior}} 

:= {{<REF. variable>KREF 
PROCEDURE identified} 

:-} Oeference expressiori> 

{{ <TEXT variable>l<TEXT 
PROCEDURE identified} :-} 
. . . <text express ion> 

::=<type declaratiorOKarray 
dec laratiori>l<sw itch 
declaration>l<procedure 
declaration Kclass 
declaration> 
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<type declaration> 
*<type> 

<simple Algol variable> 

<array declaratiori> 
<array list> 

<array segment> 
<bound pair lisl> 

<swirch declaration> 



::=<type> <simple Algol 

variable> {, <simple Algol 
variable> }. . . 

::= real |integer| Booleanl charac- 
tefTtextlref~(<CLASS 
identifier^ 

::=<VARIABLE identified 

::= £<type>]-array <array list> 

::=<array segment>|<array list>, 
<array segmenf> 

:: = -E<ARRAY identified, } 
<ARRAY identified 
[ <bound pair lisf>] 

::=<arithmetic expressiori> : 
<arithmetic expression> 
{ , <arithmetic expressiori> : 
<arithmetic expressiori> j. . . 

::= switch <SW ITCH identified : = 
<designational expressiori> 
t , <designational expression>]- 



<procedure declaration> 
<procedure body> 
<procedure heading> 

<formal parameter parf> 

<formal parameter> 
*<value parf> 



::- <type> procedure <procedure 
heading> <procedure body> 

::=<statemenf>lcode <integer> 
<CODE BODY>~ 

::=<PROCEDURE identified 
{{<formal parameter parf> ; 
•t <mode parf>}<specification 
parf>}! ; } 

::= (<formal parameter> 
T <parameter delimiter> 
<formal parameter>}. . . ) 

::= <identifier> 

::= value <identifier> 
£ , <identifier>]-. . . ; 
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Specification part> ::= { <specifier> <identifier> 

£ , <identifier> £...;}.. . 

<specifier> ::= <type>l f<type>]«rray |labe[l 

£ <iype>]-procedurel switch 

<name part> ::= name <identifier> 

I , <identifier>-L. . .; 

<mode part> ::=<value part>£<name parf>£ | 

<name parf>£<value part>]- 

*<class declaration ::= £ <prefix>}<main parf> 

*<prefix> ::=<CLASS identified 

*<main part> ::= class <CLASS identified 

* {{<formal parameter part> ; 

£<value part> ]-<specification 
parf>}|;} 

* £ virtual : <virtual specifica- 
tion parf> j- 

* {<statement>|<split body>} 

*<virtual specification part> ::= {<virtual specified 

<identifier> 
£ <identifier> J-. . .} ... 

*<virtual specified ::=£ <type>£ procedure | label | 

switch 

<split body> ::= begin £ <declaration>;}. . . 

£ <statemenf> ; £ . . . 



I ; <statement>£. 



end 
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CHARACTER REPRESENTATION OF SIMULA 

SYMBOLS 



SIMULA 


Recommended 


Tolerated 


Punch for recom- 


symbol 


keypunch 


keypunch 


mended keypunch 


A-Z 


A-Z 




12-1 -0-9 


a - z 








0-9 


0-9 




0-9 


+ 


+ 




12 


_ 


- 




11 


X 


* 




11-8-4 


/ 


/ 




0-1 


t 


t 


'POWER' 


1 1 -8-5 




:/ 


'DIV or '/' 


8-2, 0-1 


> 


> 


'GREATER' 


11-8-7 


> 


> 


'NOT LESS' 


12-8-5 


= 


= 


'EQUAL' 


8-3 


f 


1 = 


'NOT EQUAL' 


12-8-6, 8-3 


< 


< 


'NOT GREATER' 


8-5 


< 


< 


'LESS' 


12-0 


A 


A 


'AND' 


0-8-7 


V 


V 


'OR' 


11-0 


= 


= 


'EQUIV 


0-8-6 


= = 


= = 


'IDENT' 


8-3, 8-3 


1 


1 


'NOT' 


12-8-6 


=/= 


=/= 


'NOT IDENT' 


8-3, 0-1, 8-3 


3 


— " 


' IMPL' 


0-8-5 
12-8-3 


, (comma) 


' 




0-8-3 

8-2 

12-8-7 


10 

( 
) 


' (apostr. ) 

( 

) 




8-4 

0-8-4 

12-8-4 


[ 


[ 


(/ 


8-7 


] 


] 


/) 


12-8-4 




: = 


. .= or .= 


8-2, 8-3 


:- 


I 


■ •- or .- 


8-2, 1 1 
11-8-6 


" 


s 




1 1 -8-3 


(blank) 


space 
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SIMULA CHARACTER SET 



VALUE 


charac- 


Card 


VALUE 


charac- 


Card 


octal 


deci- 


octal 


deci- 




mal 


ter 


Punch 




mal 


ter 


Punch 


00 









40 


32 


5 


5 


01 


1 


A 


12-1 


41 


33 


6 


6 


02 


2 


B 


12-2 


42 


34 


7 


7 


03 


3 


C 


12-3 


43 


35 


8 


8 


04 


4 


D 


12-4 


44 


36 


9 


9 


05 


5 


E 


12-5 


45 


37 


+ 


12 


06 


6 


F 


12-6 


46 


38 


- 


11 


07 


7 


G 


12-7 


47 


39 


* 


1 1 -8-4 


10 


8 


H 


12-8 


50 


40 


/ 


0-1 


11 


9 


1 


12-9 


51 


41 


( 


0-8-4 


12 


10 


J 


11-1 


52 


42 


) 


12-8-4 


13 


11 


K 


11-2 


53 


43 


$ 


1 1 -8-3 


14 


12 


L 


11-3 


54 


44 


= 


8-3 


15 


13 


M 


11-4 


55 


45 


blank 


space 


16 


14 


N 


11-5 


56 


46 


, 


0-8-3 


17 


15 


O 


11-6 


57 


47 




12-8-3 


20 


16 


P 


11-7 


60 


48 


= 


0-8-6 


21 


17 


Q 


11-8 


61 


49 


[ 


8-7 


22 


18 


R 


11-9 


62 


50 


] 


0-8-2 


23 


19 


S 


0-2 


63 


51 




8-2 


24 


20 


T 


0-3 


64 


52 


' 


8-4 


25 


21 


U 


0-4 


65 


53 


— 


0-8-5 


26 


22 


V 


0-5 


66 


54 


V 


11-0 


27 


23 


W 


0-6 


67 


55 


A 


0-8-7 


30 


24 


X 


0-7 


70 


56 


t 


1 1 -8-5 


31 


25 


Y 


0-8 


71 


57 


t 


1 1 -8-6 


32 


26 


Z 


0-9 


72 


58 


< 


12-0 


33 


27 








73 


59 


> 


1 1 -8-7 


34 


28 


1 


1 


74 


60 


< 


8-5 


35 


29 


2 


2 


75 


61 


> 


1 2-8-5 


36 


30 


3 


3 


76 


62 


~1 


12-8-6 


37 


31 


4 


4 


77 


63 


' 


1 2-8-7 
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6000 REPRE 


SENTATION 


OF SIMULA 


SIMULA 
symbol 


SYMBOLS 

6000-Representation SIMULA 6000-RepresentaHon 
symbol 


activate 


'ACTIVATE' 


is 


'IS' 


after 


'AFTER' 


label 


'LABEL' 


array 


'ARRAY' 


name 


'NAME' 


at 


'AT' 


new 


'NEW 


before 


'BEFORE' 


none 


'NONE' 


begin 


'BEGIN' 


no text 


'NOTEXT' 


Boolean 


'BOOLEAN' 


otherwise 


'OTHERWISE' 


character 


'CHARACTER' 


prior 


'PRIOR' 


class 


'CLASS' 


procedure 


'PROCEDURE' 


code 


'CODE' 


qua 


'QUA' 


comment 


'COMMENT' 


reactivate 


'REACTIVATE' 


delay 


'DELAY' 


real 


'REAL' 


delimiter 


'DELIMITER' 


ref 


'REF' 


do 


'DO' 


step 


'STEP' 


else 


'ELSE' 


switch 


'SWITCH' 


end 


'END' 


text 


'TEXT' 


false 


'FALSE' 


then 


'THEN' 


for 


'FOR' 


this 


'THIS' 


go to 


'GOTO' 


true 


'TRUE' 


if 


'IF' 


until 


'UNTIL' 


in 


'IN' 


value 


'VALUE' 


inner 


'INNER' 


virtual 


'VIRTUAL' 


inspect 


'INSPECT' 


when 


'WHEN' 


integer 


'INTEGER' 


while 


'WHILE' 
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